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¢ ABSTRACT: 


This module contains the Tt BPsts for the FORTRAN 
WRITE soreness List-directed 1/0 statement. It is Stapty 
a call to FORS$SIO_BEG with bits in RO which describe t 
parameter List. FORSSIO_BEG interprets the parameters. 


; ; MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


SoOoooooooooooSo OOOO COOOSOOOOSCOooO 
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. TRANSFER FORSWRITE IL 
. MASK FOR$$I0_BEG 
JMP FORSWRITE_IL+2 


This puts the correct mask in entry vector, that is FOR$S$I0_BEG entry mask. 
Furthermore this module must only use RO and R 
since any other register might not be in the entry mask for FORS$I0_BEG. 
; ENVIRONMENT: User access mode; mixture of AST level or not 


; ; AUTHOR: Steven B. Lionel, CREATION DATE: 21-April-1983 
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; Edit History: 
1-001 = Original. SBL 21-April-1983 
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i++ 
; FACILITY: FORTRAN Support Library - user callable 
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FORSWRITE_IL = FORTRAN WRITE internal List-directed 16-SEP-19 4 YAX/VMS Macro V04-00 Pa 
1-001 gree r1o8d iibo01 ERORRTC.CRETFORURITIL.MARS1 °° cq) 
-TITLE FORSWRITE_IL = FORTRAN WRITE internal List-directed 
-IDENT /1-001/ File: FORWRITEIF.MAR Edit: S$8L1001 
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FORSWRITE_IL = FORTRAN WRITE internal List-directed 16-SEP-1984 00:05:04 VAX/VMS Macro v04-00 Pa 
1-001 DECLARATIONS yaa 7 90:93:34 FORRTL.SRCJFORWRITIL.MAR;1 ” a 
é -SBTTL DECLARATIONS | 
i ; INCLUDE FILES: | 
es SFORPAR : Define inter-module FORTRAN symbols 
65 SISBDEF i; Define statement type symbols 
eF 
$3 ; EXTERNAL SYMBOLS: 
71 -DSABL GBL ; Declare all external symbols 
ie ie -EXTRN FORSSIO_BEG ; common 1/0 statement processing 
74 : The tae references are to make sure the necessary UDF and REC 
75 ; modules are loaded. These are the routines which are called through 
6 3; the dispatch tables in FORSSDISPAT. 
8 p -EXTRN FORSSUDF_WLO, FORSSUDF_WL1, FORSSUDF_WL9 
19 TEXTRN FORSSREC-WILO, FORSSREC_WIL1, FORSSREC_WIL9 
1 3 
§ ; MACROS: 
09 4 : NONE 
99 6 > PSECT DECLARATIONS: 
00 3° 
0000 58 i -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 
3 91 
0 38 
00 93 ; 
0 94 
95 
00099 
: 3 OWN STORAGE: 
$0 35 : NONE 
00 3 


: EQUATED SYMBOLS: 
} 


1 8 
ITE_IL = FORTRAN WRITE internal List-directed 1 
FORSWRITE_IL = WRITE internal List-direc SEP-1984 FORRTL.SRCJFORWRITIL.MAR;1 


-SBTTL FORSWRITE_IL = WRITE internal List-directed 


++ 
FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN 1/0 system to perform 
a WRITE internal List-directed 1/0 statement. 


; CALLING SEQUENCE: 
CALL FORSWRITE_IL (user_vbl.rt.dx C, err_adr.j.r C, end_adr.j.rJ)) 
; INPUT PARAMETERS: 


ser_vbl.rt.dx User's string variable 
ferc-adr.j.r optional ERR= address 
optional END= address 


end_adr.j.r 


09 > IMPLICIT INPUTS: 
0 : NONE except those used by FORSSIO_BEG. 
000 : OUTPUT PARAMETERS: 
3 3 
O60 : NONE 
909 : IMPLICIT OUTPUTS: 
909 : NONE except those left by FORS$SIO_BEG. 
$09 + COMPLETION CODES: 
000 3 
900 ; NONE 
00 ; SIDE EFFECTS: 
44 : NONE except those of FORSS$IO_BEG. 
0000" 000 FORSWRITE_IL:: .MASK FORS$SIO_BEG 
5 9A 0 MOVZBL #ISBSK_ST_TY wie. RO ; Statement type 
JMP G*FORSS10_BEG+ ; branch past cail mask 
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= FORTRAN WRITE internal List-directed 16-SEP-1984 00:05:04 VAX/VMS M v04- FO 

ymbol table Seow pan set} 90:93:84 FORRTL.SRC RETF FOR MORI IL. MAR; 1 sas db ad 
FORSS1O_ BEG eeereree 8X 
FORSSREC_WIL eeeeeeee 86x 
FORSSREC MILI eeneeeee 8 6X 
FORSSR Fomub eeeeeeee 86 
FORSSUDF WL ereereee 
FORSSUDF “WL eeererer x 
FORSURTTE’ TC 00000000 RG- 01 
FOR 
SSK ST TYewIL = Soo0001s 

pense mon ee ae so ee $ 

! i _Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 “¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_F ORSCODE 0000000B ( 11.) S& Bes PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

beer ene eee ee es ewce ao moe} 
H Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 0:00:00.09 0:00:01.09 
zomnens processing 133 09: 8; 0:65 0:00:04-3 
s 1 126 0:00:01.21 :00:04.87 

Syabol table sort 3 38: : 18 8 08: 0 3 
Symbol table output § 6; : “68 0:00:00. 32 
Psect synopsis output 0:00:00.01 0:00:00.09 
Cross-reference output 9 0:00: +08 0:00: 9-89 
Assembler run totals 33 0:00:02.6 0:00:13.0 


The workirg set Limit was 1050 pages. 

6398 bytes (15 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space et ieseree o hold 187 non-local and 0 Local symbols. 
7 source Lines were read in Pass 1, produci ng 8 object records in Pass 2. 

9 pages of virtual memory were used to define 2 macros. 


brewer cee newer enemas a 


! ; Macro Library statistics ' 


TSH Hons we mere eee eS amet 


Macro st name Macros defined 


ees 


$255$0UA2 : CFORRTL.OBJFORRTL.MLB; 1 
HEY: :CSYSLIE STARLET. MLB; 
Trace Ags: Date te 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORWRITIL/OBJ=OBJ$:FORWRITIL MSRC$:FORWRITIL/UPDATE=(ENHS:FORWRITIL) +L1 


T CORPORATION 
PROPRIETARY 
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